module Data.Either where

fromLeft :: a -> Either a b -> a
fromLeft _ (Left a) = a
fromLeft a _        = a
  
fromRight :: b -> Either a b -> b
fromRight _ (Right b) = b
fromRight b _         = b
